From: Richard M. Stallman Date: Tue, 2 Mar 1993 19:34:46 +0000 (+0000) Subject: (defsetf): Use eval-and-compile for self-update-fn. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~97060 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=28059881f3665035a65a15801776013c5a12fcd9;p=emacs.git (defsetf): Use eval-and-compile for self-update-fn. --- diff --git a/lisp/cl.el b/lisp/cl.el index 297ea0b3f1e..db477e1005f 100644 --- a/lisp/cl.el +++ b/lisp/cl.el @@ -1940,8 +1940,9 @@ updating called for." (prin1-to-string accessfn))) ;; update properties (list 'progn - (list 'put (list 'quote accessfn) - :setf-update-fn (list 'function updatefn)) + (list 'eval-and-compile + (list 'put (list 'quote accessfn) + :setf-update-fn (list 'function updatefn))) (list 'put (list 'quote accessfn) :setf-update-doc docstring) ;; any better thing to return? (list 'quote accessfn)))